home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / zcalccrc.d < prev    next >
Text File  |  1997-10-26  |  529b  |  21 lines
  1. DEFINITION MODULE ZCalcCrc;
  2.  
  3. (*$Z+*)
  4.  
  5. FROM CatTypes IMPORT BigTextPtr;
  6.  
  7. PROCEDURE CalcCrc(REF str : ARRAY OF CHAR):CARDINAL;
  8. (* str 0C terminated *)
  9.  
  10. PROCEDURE CalcCrcArray(a : BigTextPtr; howMuch : CARDINAL):CARDINAL;
  11.  
  12. PROCEDURE crc32(adr : BigTextPtr; howMuch : CARDINAL) : LONGCARD;
  13.  
  14. PROCEDURE CalcIdCrc (REF str: ARRAY OF CHAR): CARDINAL;
  15. (* Berechnet eine CRC ber eine ID. Dabei wird der domain-part
  16.  * der ID nach Upcase gewandelt, da dieser case-insensitiv
  17.  * behandelt werden soll
  18.  *)
  19.  
  20. END ZCalcCrc.
  21.